home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / tox flash.s < prev    next >
Text File  |  1995-03-17  |  289b  |  25 lines
  1. s:
  2. lea tabel,a0
  3. s1:
  4. andi.b #64,$bfe001
  5. beq s5
  6. lab1:
  7. cmp.b #$80,$dff006
  8. bne s1 
  9. s2:
  10. move.l farve,$dff180
  11. add.b #1,lab1+3
  12. move.w (a0)+,farve
  13. cmp.l #endtab,a0
  14. bne s1
  15. bra s
  16. even
  17. tabel:
  18. dc.w $000,$111,$222,$333,$444,$555,$666,$777,$888,$999,$aaa,$bbb
  19. endtab:
  20. even
  21. farve:
  22. dc.w $0
  23. even 
  24. s5: rts
  25.